home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / mail / mh / contrib / queuemh / queuemh-scripts / myscan < prev    next >
Encoding:
Text File  |  1992-11-08  |  1.1 KB  |  52 lines
  1. #!/bin/sh
  2. #  Helen Wong
  3. #  July 7, 1991
  4. #
  5. #  Modified by: dyker Fri Mar 20 13:13:48 MST 1992
  6. #       cleaned-up/took-out lots of superfluous stuff
  7. #       fixed setting of folder
  8. #    fixed the selection of messages to use pick instead of grep
  9. #       added recognition of last, first, next, prev, and cur as valid msgs
  10. #    moved the -form value to a variable
  11. #
  12. #  Argument need to be saved since it will be shifted.  Argument might
  13. #  be needed later.
  14. #  declaration of variables 
  15. #
  16.  
  17. PATH=/usr/local/mh/bin:/bin:/usr/bin
  18. form="-form /homes/troubmh/Mail/pscan.form"
  19.  
  20. #  Arguments have to be either a folder name , a msg number, or 
  21. #  nothing.
  22.  
  23. while [ "$#" -ne 0 ]
  24. do
  25.    case "$1" in 
  26.     [0-9]* | [0-9]*[-][0-9]* |first*|last*|next*|prev*|cur* ) 
  27.  
  28.         msg="$msg $1" ;;
  29.  
  30.     +* ) 
  31.         folder="$1" ;;
  32.  
  33.     * ) echo "Usage: $0 [+folder] [msg] " 
  34.            exit 1 ;; 
  35.    esac 
  36.    shift 
  37.  
  38. done 
  39.  
  40. folder="${folder-+${FOLDER-`folder -fast`}}"
  41.  
  42. hits=`pick $folder $msg --assigned-to $USER 2>/dev/null`
  43. if [ "$hits" != "0" ]
  44. then
  45.     scan $folder $form $hits
  46. else
  47.     echo  "You're not there"
  48.     exit 1
  49. fi
  50.  
  51. #  End of myscan 
  52.